﻿Public Class Cliente : Implements IEquatable(Of Cliente)

    Public Property Dni As String
    Public Property Nombre As String
    Public Property Apellidos As String
    Public Property Telefono As String

    Public Sub New()

    End Sub

    Public Sub New(ByVal dni As String, ByVal nom As String)
        Me.Dni = dni
        Me.Nombre = nom
    End Sub

    Public Sub New(ByVal dni As String, ByVal nom As String, ByVal ape As String, ByVal tel As String)
        Me.Dni = dni
        Me.Nombre = nom
        Me.Apellidos = ape
        Me.Telefono = tel
    End Sub
    Public Overrides Function ToString() As String
        Return Me.Nombre
    End Function
    Public Function Equals1(other As Cliente) As Boolean Implements IEquatable(Of Cliente).Equals
        Return (Me.Nombre = other.Nombre & Me.Dni = other.Dni)
    End Function

End Class
